with Ada.Text_IO; 

procedure Iada is
	A : Integer;
begin
	A := 10;

	Ada.Text_IO.Put_Line("fucker fucker" & Integer'Image(A));
end Iada;
